home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
TECHNICA
/
AUTOCAD
/
H107.ZIP
/
MAY91.ZIP
/
TIP657.LSP
< prev
next >
Wrap
Text File
|
1991-05-13
|
920b
|
39 lines
;TIP657.LSP List to String (c)1991, George Zinsmeister
(defun LTOA (LIST MODE PREC / I ITEM S)
(if (= MODE nil)(setq MODE (getvar
"LUNITS")))
(if (= PREC nil)(setq PREC (getvar
"LUPREC")))
(if (= (type (cdr LIST)) 'LIST)
(progn
(setq S "" I 0 ITEM (nth 0 LIST))
(while ITEM
(setq
S (strcat S (CONVERT ITEM MODE
PREC) " ")
I (1+ I)
ITEM (nth I LIST)
)
)
(strcat "(" (substr S 1 (1-
(strlen S))) ")")
)
(strcat "(" (CONVERT (car LIST) MODE
PREC) " . " (CONVERT (cdr LIST)
MODE PREC) ")")
)
)
(defun CONVERT (ITEM MODE PREC)
(cond
((= (type ITEM) 'INT) (itoa ITEM))
((= (type ITEM) 'REAL)
(rtos ITEM MODE PREC))
((= (type ITEM) 'STR)
(strcat "\"" ITEM "\""))
((= (type ITEM) 'LIST)
(LTOA ITEM MODE PREC))
)
)